object frmAlugar: TfrmAlugar
  Left = 289
  Top = 136
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'PROFESTA - Alugar'
  ClientHeight = 561
  ClientWidth = 794
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = 'Calibri'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    794
    561)
  PixelsPerInch = 96
  TextHeight = 18
  object lbNomeCliente: TLabel
    Left = 88
    Top = 13
    Width = 95
    Height = 18
    Caption = 'lbNomeCliente'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
  end
  object lbTipoMaterial: TLabel
    Left = 24
    Top = 79
    Width = 178
    Height = 18
    Caption = 'Selecione o tipo do material:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbQuantidade: TLabel
    Left = 24
    Top = 315
    Width = 370
    Height = 18
    Caption = 'Digite a quantidade de itens que voc'#234' deseja incluir na lista:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbDataRetirada: TLabel
    Left = 319
    Top = 13
    Width = 106
    Height = 18
    Caption = 'Data de Retirada:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ldDataDevolucao: TLabel
    Left = 525
    Top = 13
    Width = 119
    Height = 18
    Caption = 'Data de Devolu'#231#227'o:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 24
    Top = 13
    Width = 49
    Height = 18
    Caption = 'Cliente:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbItensEscolhidos: TLabel
    Left = 24
    Top = 354
    Width = 104
    Height = 18
    Caption = 'Itens escolhidos:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbDescricao: TLabel
    Left = 24
    Top = 110
    Width = 137
    Height = 18
    Caption = 'Materiais dispon'#237'veis:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbidlocacao: TLabel
    Left = 719
    Top = 13
    Width = 3
    Height = 18
    Anchors = [akTop, akRight]
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    Visible = False
    ExplicitLeft = 1047
  end
  object lbmaterialselecionado: TLabel
    Left = 429
    Top = 342
    Width = 14
    Height = 18
    Caption = 'xx'
  end
  object labelAjudaAlugar: TInternetLabel
    Left = 728
    Top = 8
    Width = 33
    Height = 13
    Cursor = crHandPoint
    Caption = 'Ajuda'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object cbboxTipoMaterial: TComboBox
    Left = 319
    Top = 76
    Width = 209
    Height = 26
    Style = csDropDownList
    ItemHeight = 18
    TabOrder = 0
    OnChange = cbboxTipoMaterialChange
    Items.Strings = (
      'colocar'
      'aqui '
      'tipos'
      'de '
      'materiais')
  end
  object DataDevolucao: TDateTimePicker
    Left = 525
    Top = 38
    Width = 186
    Height = 26
    Date = 0.485058692131133300
    Time = 0.485058692131133300
    TabOrder = 1
    OnChange = DataDevolucaoChange
  end
  object DataRetirada: TDateTimePicker
    Left = 319
    Top = 38
    Width = 186
    Height = 26
    Date = 0.485058692131133300
    Time = 0.485058692131133300
    TabOrder = 2
    OnChange = DataRetiradaChange
  end
  object btbtnIncluir: TBitBtn
    Left = 528
    Top = 311
    Width = 105
    Height = 25
    Caption = 'Incluir na lista'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = btbtnIncluirClick
  end
  object BtnRemoverDaLista: TBitBtn
    Left = 24
    Top = 528
    Width = 127
    Height = 25
    Caption = 'Remover da lista'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BtnRemoverDaListaClick
  end
  object btnFechar: TBitBtn
    Left = 647
    Top = 528
    Width = 75
    Height = 25
    Caption = 'Fechar'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = btnFecharClick
  end
  object SpinQuantidade: TSpinEdit
    Left = 429
    Top = 308
    Width = 84
    Height = 28
    MaxValue = 1000
    MinValue = 0
    TabOrder = 6
    Value = 0
    OnChange = SpinQuantidadeChange
    OnEnter = SpinQuantidadeChange
  end
  object btnhistoricolocacoes: TButton
    Left = 24
    Top = 39
    Width = 217
    Height = 25
    Caption = 'Consultar hist'#243'rico de loca'#231#245'es'
    TabOrder = 7
    OnClick = btnhistoricolocacoesClick
  end
  object GridListaItems2: TDBAdvGrid
    Left = 24
    Top = 375
    Width = 698
    Height = 146
    Cursor = crDefault
    ColCount = 5
    RowCount = 2
    FixedRows = 1
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
    ScrollBars = ssBoth
    TabOrder = 8
    OnFooterCalc = GridListaItems2FooterCalc
    ActiveCellFont.Charset = ANSI_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -15
    ActiveCellFont.Name = 'Calibri'
    ActiveCellFont.Style = [fsBold]
    ActiveCellColor = clWhite
    AutoSize = True
    BackGround.ColorTo = clWhite
    ControlLook.FixedGradientFrom = clWhite
    ControlLook.FixedGradientTo = clBtnFace
    ControlLook.ProgressBorderColor = clWhite
    Filter = <>
    FixedColWidth = 20
    FixedRowHeight = 22
    FixedFont.Charset = ANSI_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -15
    FixedFont.Name = 'Calibri'
    FixedFont.Style = []
    FloatFormat = '%.2f'
    FloatingFooter.CalculateHiddenRows = False
    Look = glClassic
    PrintSettings.DateFormat = 'dd/mm/yyyy'
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -15
    PrintSettings.Font.Name = 'Calibri'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -15
    PrintSettings.FixedFont.Name = 'Calibri'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -15
    PrintSettings.HeaderFont.Name = 'Calibri'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -15
    PrintSettings.FooterFont.Name = 'Calibri'
    PrintSettings.FooterFont.Style = []
    PrintSettings.PageNumSep = '/'
    ScrollWidth = 16
    SearchFooter.FindNextCaption = 'Find &next'
    SearchFooter.FindPrevCaption = 'Find &previous'
    SearchFooter.Font.Charset = DEFAULT_CHARSET
    SearchFooter.Font.Color = clWindowText
    SearchFooter.Font.Height = -15
    SearchFooter.Font.Name = 'Calibri'
    SearchFooter.Font.Style = []
    SearchFooter.HighLightCaption = 'Highlight'
    SearchFooter.HintClose = 'Close'
    SearchFooter.HintFindNext = 'Find next occurence'
    SearchFooter.HintFindPrev = 'Find previous occurence'
    SearchFooter.HintHighlight = 'Highlight occurences'
    SearchFooter.MatchCaseCaption = 'Match case'
    Version = '2.1.6.0'
    AutoCreateColumns = True
    AutoRemoveColumns = True
    Columns = <
      item
        Borders = []
        BorderPen.Color = clSilver
        CheckFalse = 'N'
        CheckTrue = 'Y'
        Color = clWindow
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Calibri'
        Font.Style = []
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -15
        HeaderFont.Name = 'Calibri'
        HeaderFont.Style = []
        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
        PrintFont.Charset = DEFAULT_CHARSET
        PrintFont.Color = clWindowText
        PrintFont.Height = -15
        PrintFont.Name = 'Calibri'
        PrintFont.Style = []
        Width = 20
      end
      item
        Borders = []
        BorderPen.Color = clSilver
        CheckFalse = 'N'
        CheckTrue = 'Y'
        Color = clWindow
        FieldName = 'Material'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Calibri'
        Font.Style = []
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -15
        HeaderFont.Name = 'Calibri'
        HeaderFont.Style = []
        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
        PrintFont.Charset = DEFAULT_CHARSET
        PrintFont.Color = clWindowText
        PrintFont.Height = -15
        PrintFont.Name = 'Calibri'
        PrintFont.Style = []
        Width = 221
      end
      item
        Alignment = taRightJustify
        Borders = []
        BorderPen.Color = clSilver
        CheckFalse = 'N'
        CheckTrue = 'Y'
        Color = clWindow
        FieldName = 'Valor unit'#225'rio di'#225'rio'
        FloatFormat = '%1.2f'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Calibri'
        Font.Style = []
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -15
        HeaderFont.Name = 'Calibri'
        HeaderFont.Style = []
        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
        PrintFont.Charset = DEFAULT_CHARSET
        PrintFont.Color = clWindowText
        PrintFont.Height = -15
        PrintFont.Name = 'Calibri'
        PrintFont.Style = []
        Width = 83
      end
      item
        Alignment = taRightJustify
        Borders = []
        BorderPen.Color = clSilver
        CheckFalse = 'N'
        CheckTrue = 'Y'
        Color = clWindow
        FieldName = 'Quantidade'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Calibri'
        Font.Style = []
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -15
        HeaderFont.Name = 'Calibri'
        HeaderFont.Style = []
        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
        PrintFont.Charset = DEFAULT_CHARSET
        PrintFont.Color = clWindowText
        PrintFont.Height = -15
        PrintFont.Name = 'Calibri'
        PrintFont.Style = []
        Width = 76
      end
      item
        Alignment = taRightJustify
        Borders = []
        BorderPen.Color = clSilver
        CheckFalse = 'N'
        CheckTrue = 'Y'
        Color = clWindow
        FieldName = 'Valor total no per'#237'odo'
        FloatFormat = '%1.2f'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Calibri'
        Font.Style = []
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -15
        HeaderFont.Name = 'Calibri'
        HeaderFont.Style = []
        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
        PrintFont.Charset = DEFAULT_CHARSET
        PrintFont.Color = clWindowText
        PrintFont.Height = -15
        PrintFont.Name = 'Calibri'
        PrintFont.Style = []
        Width = 69
      end>
    DataSource = dslocacaoitems
    ShowUnicode = False
    ColWidths = (
      20
      221
      83
      76
      69)
  end
  object btnimprimirorcamento: TButton
    Left = 173
    Top = 528
    Width = 161
    Height = 25
    Caption = 'Imprimir or'#231'amento'
    Enabled = False
    TabOrder = 9
    OnClick = btnimprimirorcamentoClick
  end
  object Gridmateriais: TDBAdvGrid
    Left = 24
    Top = 131
    Width = 698
    Height = 172
    Cursor = crDefault
    ColCount = 2
    RowCount = 2
    FixedRows = 1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Tahoma'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goRowSelect]
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 10
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'Tahoma'
    ActiveCellFont.Style = [fsBold]
    Filter = <>
    FixedColWidth = 20
    FixedRowHeight = 22
    FixedFont.Charset = DEFAULT_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -11
    FixedFont.Name = 'Tahoma'
    FixedFont.Style = [fsBold]
    FloatFormat = '%.2f'
    PrintSettings.DateFormat = 'dd/mm/yyyy'
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -11
    PrintSettings.Font.Name = 'Tahoma'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -11
    PrintSettings.FixedFont.Name = 'Tahoma'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -11
    PrintSettings.HeaderFont.Name = 'Tahoma'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -11
    PrintSettings.FooterFont.Name = 'Tahoma'
    PrintSettings.FooterFont.Style = []
    PrintSettings.PageNumSep = '/'
    ScrollWidth = 16
    SearchFooter.FindNextCaption = 'Find &next'
    SearchFooter.FindPrevCaption = 'Find &previous'
    SearchFooter.Font.Charset = DEFAULT_CHARSET
    SearchFooter.Font.Color = clWindowText
    SearchFooter.Font.Height = -11
    SearchFooter.Font.Name = 'Tahoma'
    SearchFooter.Font.Style = []
    SearchFooter.HighLightCaption = 'Highlight'
    SearchFooter.HintClose = 'Close'
    SearchFooter.HintFindNext = 'Find next occurence'
    SearchFooter.HintFindPrev = 'Find previous occurence'
    SearchFooter.HintHighlight = 'Highlight occurences'
    SearchFooter.MatchCaseCaption = 'Match case'
    Version = '2.1.6.0'
    AutoCreateColumns = True
    AutoRemoveColumns = True
    Columns = <
      item
        Borders = []
        BorderPen.Color = clSilver
        CheckFalse = 'N'
        CheckTrue = 'Y'
        Color = clWindow
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'Tahoma'
        HeaderFont.Style = []
        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
        PrintFont.Charset = DEFAULT_CHARSET
        PrintFont.Color = clWindowText
        PrintFont.Height = -11
        PrintFont.Name = 'Tahoma'
        PrintFont.Style = []
        Width = 20
      end
      item
        Borders = []
        BorderPen.Color = clSilver
        CheckFalse = 'N'
        CheckTrue = 'Y'
        Color = clWindow
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'Tahoma'
        HeaderFont.Style = []
        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
        PrintFont.Charset = DEFAULT_CHARSET
        PrintFont.Color = clWindowText
        PrintFont.Height = -11
        PrintFont.Name = 'Tahoma'
        PrintFont.Style = []
        Width = 64
      end>
    DataSource = dsmateriais
    ShowUnicode = False
    ColWidths = (
      20
      64)
  end
  object btnproximopasso: TButton
    Left = 353
    Top = 528
    Width = 161
    Height = 25
    Caption = 'Efetuar pagamento'
    Enabled = False
    TabOrder = 11
    OnClick = btnproximopassoClick
  end
  object query1: TZReadOnlyQuery
    Connection = Frmsenha.conn
    Params = <>
    Left = 656
    Top = 72
  end
  object qrmateriais: TZReadOnlyQuery
    Connection = Frmsenha.conn
    AfterOpen = qrmateriaisAfterOpen
    Params = <>
    Left = 664
    Top = 160
  end
  object dsmateriais: TDataSource
    DataSet = qrmateriais
    OnDataChange = dsmateriaisDataChange
    Left = 696
    Top = 160
  end
  object querylocacaoitems: TZReadOnlyQuery
    Connection = Frmsenha.conn
    AfterOpen = querylocacaoitemsAfterOpen
    Params = <>
    Left = 152
    Top = 374
  end
  object dslocacaoitems: TDataSource
    DataSet = querylocacaoitems
    OnDataChange = dslocacaoitemsDataChange
    Left = 184
    Top = 374
  end
end
